"If you are installing for the first time, select the directory in which you would like the DirectTemplates drawer created; otherwise, select the directory containing the DirectTemplates drawer.")
(help
"A drawer named DirectTemplates will be created here to store the templates.\n\n"
"If a drawer named DirectTemplates already exists in this directory, a new drawer will not be created.")
(default @default-dest)
)
)
;INSTALLATION MODE
(set ALLflag 0)
(set CUSflag 1)
(set imode
(askchoice
(prompt
"\nSelect an installation option:\n")
(choices
"All 488 templates (3.5 MB required!)"
"Custom installation"
)
(default 0)
(help
"If you choose All, you must have at least 4MB of free hard drive space."
)
)
)
;CUSTOM INSTALL OPTIONS
(set fBC 0)
(set fBM 1)
(set fBMJ 2)
(set fBML 3)
(set fBMP 4)
(set fBMT 5)
(set fBRL 6)
(set fBRT 7)
(set fBST 8)
(set fBT 9)
(set fCDH 10)
(set fCT 11)
(set fCTT 12)
(set fDT 13)
(set fLL 14)
(set fNC 15)
(set fPC 16)
(set fX 17)
(if (= imode CUSflag)
(
(set customopts
(askoptions
(prompt
"Please select which files you wish to install now.")
(choices
"BC files: 44K"
"BM files: 55K"
"BMJ files: 35K"
"BML files: 46K"
"BMP files: 72K"
"BMT files: 990K"
"BRL files: 55K"
"BRT files: 507K"
"BST files: 53K"
"BT files: 474K"
"CDH files: 28K"
"CT files: 58K"
"CTT files: 25K"
"DT files: 285K"
"LL files: 509K"
"NC files: 55K"
"PC files: 238K"
"F,V,W,X files: 19K"
)
(default 0)
(help
"Choose which files you wish to install. The letters shown are the first part of the PaperDirect part numbers."
)
)
)
(if (= customopts 0) (abort "Nothing to install!"))
)
)
;SET TIMES TO INSTALL FILES
(set TIME 0)
(set DONE 0)
(if (= imode ALLflag) (set time 3548))
(if (= imode CUSflag)
(
(if (IN customopts fBC) (set time (+ time 44)))
(if (IN customopts fBM) (set time (+ time 55)))
(if (IN customopts fBMJ) (set time (+ time 35)))
(if (IN customopts fBML) (set time (+ time 46)))
(if (IN customopts fBMP) (set time (+ time 72)))
(if (IN customopts fBMT) (set time (+ time 990)))
(if (IN customopts fBRL) (set time (+ time 55)))
(if (IN customopts fBRT) (set time (+ time 507)))
(if (IN customopts fBST) (set time (+ time 53)))
(if (IN customopts fBT) (set time (+ time 474)))
(if (IN customopts fCDH) (set time (+ time 28)))
(if (IN customopts fCT) (set time (+ time 58)))
(if (IN customopts fCTT) (set time (+ time 25)))
(if (IN customopts fDT) (set time (+ time 285)))
(if (IN customopts fLL) (set time (+ time 509)))
(if (IN customopts fNC) (set time (+ time 55)))
(if (IN customopts fPC) (set time (+ time 238)))
(if (IN customopts fX) (set time (+ time 19)))
)
)
;ENOUGH DISK SPACE TO INSTALL?
(set space (getdiskspace TEMdest))
(set temp (* (+ time 50) 1000))
(if
(< temp space)
(set temp (- temp space))
(if (= imode CUSflag)
(abort "There is not enough disk space to install the files you have selected.")
(abort "There is not enough disk space to install all of the templates.")
(working "Decompressing F, V, W and X files...\n\n\n")
(run "ram:lhex >NIL: <NIL: -qfw=DirTem: x ram:X.LHA")
(delete "ram:X.LHA" (safe))
(set DONE (+ DONE 1900))))
(set progress (/ done time))
(complete progress)
;** DISK 2 **
;REQUEST DISK 2
(if
(OR (= imode ALLflag)
(OR (IN customopts fDT) (IN customopts fLL))
)
(askdisk
(prompt "\n\n\nPlease insert Direct Templates disk 2.")
(help
"You must insert this disk in a floppy drive to complete the installation. If you are missing this disk or if the installer does not accept the disk, contact Soft-Logik Publishing for assistance.")
